home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / STARPRT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  742 b   |  39 lines
  1. 10  DIM STAY(3)
  2. 20  WIDTH "LPT1:",255
  3. 30  DEF FNA(X)=COS(360/N*X*Q)*220+320
  4. 40  DEF FNB(X)=SIN(360/N*X*Q)*100+100
  5. 50  SCREEN 2
  6. 60  Q=0.017453
  7. 70  KEY OFF
  8. 80  INPUT N
  9. 90  CLS
  10. 100  K=(N+1)/2
  11. 110  FOR O=1 TO N
  12. 120  LINE(FNA(O),FNB(O))-(FNA(K),FNB(K))
  13. 130  IF INT(N/2)=N/2 AND O=1 THEN STAY(0)=FNA(K):STAY(1)=FNB(K)
  14. 140  LINE(FNA(O),FNB(O))-(FNA(K+1),FNB(K+1))
  15. 150  IF INT(N/2)=N/2 AND O=N/2 THEN STAY(2)=FNA(K+1):STAY(3)=FNB(K+1)
  16. 160  K=K+1
  17. 170  K=K*ABS(K<=N)+ABS(K>N)
  18. 180  NEXT
  19. 190  IF INT(N/2)=N/2 THEN LINE (STAY(0),STAY(1))-(STAY(2),STAY(3))
  20. 200  LPRINT CHR$(3);
  21. 210  FOR C=0 TO 196 STEP 7
  22. 220  FOR A=100 TO 540
  23. 230  IF INKEY$=CHR$(27) THEN 370
  24. 240  X=-1
  25. 250  Z=0
  26. 260  FOR B=C TO C+6
  27. 270  IF B>199 THEN V=0:GOTO 290
  28. 280  V=POINT(A,B)
  29. 290  X=X+1
  30. 300  Z=Z+V*2^X
  31. 310  NEXT B
  32. 320  IF Z=13 THEN Z=12
  33. 330  IF Z=3 THEN LPRINT CHR$(3);CHR$(3); ELSE LPRINT CHR$(Z);
  34. 340  NEXT A
  35. 350  LPRINT CHR$(3);CHR$(14);
  36. 360  NEXT C
  37. 370  LPRINT CHR$(3);CHR$(2);
  38. 380  END
  39.